0 A=RND(-TI)
5 PRINT"[147]GENERATING A NEW LCP .... PLEASE WAIT"
10 OPEN15,8,15,"I0"
20 OPEN2,8,2,"#"
30 PRINT#15,"B-P:"2;0;0
40 FORI=0TO255:PRINT#2,CHR$(PEEK(2560 +I));:NEXT
50 PRINT#15,"U2:"2;0;1;4
51 PRINT#15,"B-P:"2;0;0:PRINT#15,"U1:"2;0;18;17:PRINT#15,"B-P:"2;0;0
52 FORI=1TO8:PRINT#2,CHR$(48+INT(RND(1)*15));:NEXT
53 PRINT#15,"U2:"2;0;18;17
60 CLOSE2:CLOSE15
70 PRINT"NEW LCP IS NOW GENERATED"